(custom-display): Add support for `supports' predicate.

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 344ffab2d47f9811010e862baba89e575c7a705f..d09d39733b37bdc3fd84c9c72fafe25e2f797614 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -2627,7 +2627,11 @@ Match frames with light backgrounds.")
                                    (const :format "Dark\n"
                                           :sibling-args (:help-echo "\
 Match frames with dark backgrounds.")
-                                          dark)))))))
+                                          dark)))
+                 (group :sibling-args (:help-echo "\
+Only match frames that support the specified face attributes.")
+                        (const :format "Supports attributes:" supports)
+                        (custom-face-edit :format "%n%v"))))))
 
 ;;; The `custom-face' Widget.